Coursera: JHU Developing Data Products- Assignment 3

Shovit Bhari

6/15/2020

Gapminder Data

Here is a link to my Gapminder data Shinyapp.

Sample Code

library(ggplot2);library(gapminder);library(plotly)
lifeexp<-gapminder %>%
        group_by(continent, year) %>%
        filter(continent == 'Oceania') 
g1<- ggplot(lifeexp, aes(x=year, y=lifeExp, color=country)) +
        geom_point(aes(color=country)) +
        geom_smooth(aes(fill= country), method="lm", formula= y~x) +
        xlab("Year") +
        ylab("Life Expectancy (years)")
p1 <- ggplotly(g1)
p1

Sample Plot

Overview of an app

Screenshot of the app with Plot tab selected. Screenshot of the app with Table tab selected.

Gapminder information Shinyapp File: ui.R File: server.R

Thank you for taking your time to go over my slides.